home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / U-Utilities / (c)u1.d64 / pcb printer.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  458b  |  13 lines
  1. 100 REM PROGRAMMABLE CHARACTER                   BOX PRINTER BY WIM
  2. 110 FORX=1TO7:READB$(X):NEXTX:DATA64,32,16,08,04,02,01
  3. 120 OPEN4,4:PRINT#4,CHR$(1)"    PROGRAMMABLE CHARACTER CHARTS":PRINT#4:PRINT#4
  4. 130 OPEN6,4,6:PRINT#6,CHR$(22)
  5. 140 FORT=1TO5:FORI=1TO7
  6. 150 FORXX=1TO4:PRINT#4,B$(I);" [207][163][207][163][207][163][207][163][207][163][207][208]   ";:NEXTXX:PRINT#4,CHR$(141)
  7. 160 FORXX=1TO4:PRINT#4,"   [204][164][204][164][204][164][204][164][204][164][204][186]   ";:NEXTXX:PRINT#4,CHR$(141)
  8. 170 NEXT:PRINT#4:PRINT#4,SPC(4);:FORXX=1TO4
  9. 180 PRINT#4,CHR$(34);" ";CHR$(34);" ";CHR$(34);" ";CHR$(34);" ";
  10. 190 PRINT#4,CHR$(34);" ";CHR$(34);SPC(7);:NEXTXX
  11. 200 FORI=1TO5:PRINT#4:NEXTI,T
  12. 210 PRINT#6,CHR$(36):CLOSE6:CLOSE4
  13.